home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / cc04.arc / SCRNMISC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-03-15  |  4.6 KB  |  173 lines
  1.  
  2. /**
  3. * These are functions written using the Lattice 2.12 compiler
  4. * that set, move and write to the CRT. Standard DOS Calls are
  5. * used. This is extracted from a larger program
  6. *
  7. * Garth Kennedy    Hinsdale, Ill  9 Nov 1984
  8. **/
  9.  
  10. #include "_main.c"
  11. int curpos[6];                 /* cursor position array */
  12. /**
  13. * curpos[0] - text row,              curpos[3] - dot row    
  14. * curpos[1] - text column            curpos[4] - dot column 
  15. * curpos[2] - display page number    curpos[5] - dot color  
  16. **/
  17.  
  18. /**
  19. * scrnclr()
  20. *
  21. * Clear screen    regardless of mode
  22. *
  23. * Garth Kennedy  29 Oct 1984
  24. **/
  25.  
  26. scrnclr()
  27. {
  28.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  29.     union REGS inregs;           /* input regs */
  30.     union REGS outregs;          /* output regs */
  31.  
  32.     inregs.h.ah = 0x0F;          /* return current video state */
  33.     int86(intno,&inregs,&outregs);
  34.  
  35.     inregs.h.ah = 0x00;          /* set display mode */
  36.     inregs.h.al = outregs.h.al;    /* to current mode */
  37.  
  38.     int86(intno,&inregs,&outregs);
  39.     
  40.     return;
  41. }
  42. /**/
  43.  
  44. /**
  45. * scrnpos(x,y)
  46. *
  47. * Move the cursor the the row, column set by x,y
  48. *
  49. * Garth Kennedy  29 Oct 1984
  50. **/
  51.  
  52. scrnpos(x,y)
  53. int x;          /* row */
  54. int y;          /* column */
  55. {
  56.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  57.     union REGS inregs;           /* input regs */
  58.     union REGS outregs;          /* output regs */
  59.  
  60.     inregs.h.ah = 0x02;          /* set cursor position */
  61.     inregs.h.dh = x;             /* row to go to */
  62.     inregs.h.dl = y;             /* column to go to */
  63.     inregs.h.bh = 0x00;          /* page 0 */
  64.  
  65.     int86(intno,&inregs,&outregs);
  66.     
  67.     return;
  68. }
  69. /**/
  70. /**
  71. *  scrnwhr(curpos)
  72. * 
  73. * return position (row/column) and page number
  74. * curpos [0] - row, curpos[1] - column, curpos[2] - page number
  75. * curpos[3] - dot row , curpos[4] - dot column, curpos[5] - color 
  76. * Garth Kennedy  30 Oct 1984
  77. **/
  78.  
  79. scrnwhr(curpos)
  80. int curpos[];
  81. {
  82.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  83.     union REGS inregs;           /* input regs */
  84.     union REGS outregs;          /* output regs */
  85.  
  86.     inregs.h.ah = 0x0F;          /* return current video state */
  87.     int86(intno,&inregs,&outregs);
  88.     curpos[2] = outregs.h.bh;           /* current page */
  89.     
  90.     inregs.h.bh = outregs.h.bh;  /* move current page */
  91.     inregs.h.ah = 0x03;          /* read cursor position */
  92.     int86(intno,&inregs,&outregs);
  93.     curpos[0] = outregs.h.dh;            /* row */
  94.     curpos[1] = outregs.h.dl;            /* column */
  95.     return;
  96. }
  97. /**/
  98. /**
  99. * setcrt(al)
  100. *
  101. * Set the CRT display mode
  102. *  al = 0    40X25 BW Text       al = 4  320X200 Color Graphics
  103. *  al = 1    40X25 Color Text    al = 5  320X200 BW Graphics
  104. *  al = 2    80X25 BW Text       al = 6  640X200 BW Graphics
  105. *  al = 3    80X25 Color Text    
  106. *
  107. * Garth Kennedy  9 Nov 1984
  108. **/
  109. setcrt(al)
  110. int al;
  111. {
  112.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  113.     union REGS inregs;           /* input regs */
  114.     union REGS outregs;          /* output regs */
  115.  
  116.     inregs.h.ah = 0x00;          /* set display mode */
  117.     inregs.h.al = al;            /* to requested mode */
  118.  
  119.     int86(intno,&inregs,&outregs);
  120.     
  121.     return;
  122. }
  123. /**/
  124. /**
  125. * grfpos(dx,dy,l)
  126. *
  127. * position the graphics "cursor" and turn to dot at that point to
  128. * the color given by l.- dx - row, dy - column
  129. *  !!! This does nothing with the text cursor  !!!
  130. *  Garth Kennedy  9 Nov 1984
  131. **/
  132.  
  133. grfpos(dx,dy,l)
  134. int dx,dy,l;
  135. {
  136.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  137.     union REGS inregs;           /* input regs */
  138.     union REGS outregs;          /* output regs */
  139.  
  140.     inregs.h.ah = 0x0C;          /* write dot */
  141.     inregs.x.dx = dx;            /* row to go to */
  142.     inregs.x.cx = dy;            /* column to go to */
  143.     inregs.h.al = l;             /* color value */
  144.  
  145.     int86(intno,&inregs,&outregs);
  146.     
  147.     return;
  148. }
  149.  
  150. /**
  151. *  grfwhr(curpos)
  152. * 
  153. * return color given dot position (row/column) 
  154. * curpos [0] - row, curpos[1] - column, curpos[2] - page number
  155. * curpos[3] - dot row , curpos[4] - dot column, curpos[5] - color 
  156. * Garth Kennedy  9 Nov 1984
  157. **/
  158.  
  159. grfwhr(curpos)
  160. int curpos[];
  161. {
  162.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  163.     union REGS inregs;           /* input regs */
  164.     union REGS outregs;          /* output regs */
  165.     
  166.     inregs.x.dx = curpos[3];     /* dot row */
  167.     inregs.x.cx = curpos[4];     /* dot column */
  168.     inregs.h.ah = 0x0D;          /* read dot color */
  169.     int86(intno,&inregs,&outregs);
  170.     curpos[5] = outregs.h.al;    /* pull out color of dot */
  171.     return;
  172. }
  173. ot c